home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_004_19xx_-_de_Disk_2_of_2_Side_B.d64 / planet of death (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  11KB  |  323 lines
  1. 1 rem planet of death
  2. 9 goto1000
  3. 10 rem ** kollision **
  4. 11 :
  5. 15 fort=0to2
  6. 16 ifpeek(53246)=1then25
  7. 17 if(peek(v+30)and1)=1then25
  8. 18 next:return
  9. 25 rem ** kollision **
  10. 26 :
  11. 27 pokev+30,0:pokev+31,0
  12. 29 l=l-1:poke53246,1:pokev,57:pokev+1,199
  13. 30 ifl=-1then40
  14. 31 poke214,22:poke211,35:sys58640
  15. 32 print"[149]"str$(l)
  16. 33 fort=30to1step-1:poke53206,t:sys53200:next
  17. 34 poke53246,0:return
  18. 40 rem ** game over **
  19. 41 :
  20. 42 pokev+21,0:print"[147]":printtab(15)"[155]game over"
  21. 44 print"    feuerknopf druecken um das spiel"
  22. 45 printtab(11)"erneut zu starten":printtab(14)"score ="sc
  23. 46 poke53221,33:poke53206,int(rnd(0)*255):sys53200
  24. 48 ifpeek(56320)<>111then46
  25. 49 poke53221,129:poke53206,130:goto15000
  26. 50 rem ** bild 1 **
  27. 51 :
  28. 52 goto30000
  29. 80 ti$="000000":he=99:pokev+21,15
  30. 81 gosub720:l=l+1:gosub25:gt=0
  31. 100 sys49152
  32. 112 pokev+30,0:pokev+31,0
  33. 120 rem ** bild 1 beendet ? **
  34. 125 ifpeek(v+1)<45then603
  35. 200 :
  36. 205 ifval(ti$)<(1+le)then300
  37. 206 :
  38. 207 rem ** uhr **
  39. 208 he=he-1:ifhe=-1thenhe=99:gosub25
  40. 209 poke214,4:poke211,24:sys58640
  41. 210 poke1209,160:poke1210,160:print"[149]"he
  42. 220 poke1648,101:poke1688,84:poke1728,71:poke1768,66:poke53206,120:sys53200
  43. 240 fort=1to5:poke56944,t:poke56945,t:poke56946,t:poke56947,t:next
  44. 250 poke1648,32:poke1688,32:poke1728,32:poke1768,32:ti$="000000"
  45. 300 :
  46. 400 rem ** kollision ? **
  47. 401 :
  48. 405 gosub10:goto100
  49. 603 rem ** bild 2 **
  50. 605 :
  51. 630 pokev+21,0:goto32000
  52. 631 pokev,56:pokev+1,199:sc=sc+(he*10)+100
  53. 632 pokev+8,200:pokev+9,173:poke715,0
  54. 633 gosub720:pokev+21,63:l=l+1:gosub25
  55. 640 rem ** bild 2 beendet ? **
  56. 641 :
  57. 642 ifpeek(v+1)<45then800
  58. 643 :
  59. 645 rem ** sperren ? **
  60. 646 ifval(ti$)<5then652
  61. 647 poke1546,32:poke1547,32:poke1548,32:poke1256,32:poke1257,32:poke1258,32
  62. 648 fort=0to(300+le*70):next
  63. 649 poke1546,28:poke1547,28:poke1548,28:poke1256,28:poke1257,28:poke1258,28
  64. 650 ti$="000000"
  65. 652 rem ** kollision ? **
  66. 653 :
  67. 654 gosub10
  68. 660 rem ** rakete des gegners **
  69. 661 :
  70. 670 ifpeek(715)<>0then680
  71. 675 pokev+10,peek(v+8):pokev+11,peek(v+9)-5
  72. 676 poke715,255:poke714,0
  73. 677 poke53206,30:sys53200
  74. 680 rem ** gegner vernichtet ? **
  75. 681 :
  76. 683 fort=0to2:if(peek(v+30)and16)=16then686
  77. 684 next:goto640
  78. 686 rem ** gegner vernichtet **
  79. 687 :
  80. 688 sc=sc+100:gt=gt+1:gosub720
  81. 689 ifgt=4thenpoke1136,32:poke1137,32:poke1138,32:pokev+21,15:pokev+10,0
  82. 703 goto640
  83. 720 rem ** score **
  84. 721 :
  85. 724 poke214,22:poke211,10:sys58640:print"[149]"sc:return
  86. 764 :
  87. 800 rem ** bild 3 **
  88. 801 :
  89. 822 pokev+21,0:goto33000
  90. 823 ti$="000000"
  91. 824 sc=sc+100:gosub720
  92. 826 pokev+21,15:l=l+1:gosub25
  93. 850 rem ** sperren/raketen ? **
  94. 851 :
  95. 852 ifval(ti$)<5then900
  96. 860 poke1267,32:poke1268,32:poke1269,32
  97. 862 poke1427,32:poke1428,32:poke1429,32
  98. 863 poke1642,32:poke1682,32:poke1722,32
  99. 864 poke1647,32:poke1687,32:poke1727,32
  100. 865 poke1651,32:poke1691,32:poke1731,32
  101. 870 fort=0to(400+l*70):next
  102. 875 poke1267,28:poke1268,28:poke1269,28
  103. 876 poke1427,28:poke1428,28:poke1429,28
  104. 877 poke1642,28:poke1682,28:poke1722,28
  105. 878 poke1647,28:poke1687,28:poke1727,28
  106. 879 poke1651,28:poke1691,28:poke1731,28
  107. 880 rem ** raketen **
  108. 882 fort=1328to1168step-40:poke54272+t,1:poket,37:sys53200:qq=sin(t)
  109. 883 poket,32:next
  110. 884 fort=1261to1244step-1:poke54272+t,1:poket,38:sys53200:qq=sin(t)
  111. 885 poket,32:next
  112. 890 ti$="000000"
  113. 900 rem ** bild 3 beendet ? **
  114. 901 :
  115. 902 ifpeek(v+1)<45then950
  116. 910 rem ** kollision ? **
  117. 911 :
  118. 912 gosub10
  119. 913 goto850
  120. 950 rem ** bild 3 beendet **
  121. 951 :
  122. 952 :
  123. 960 sc=sc+100:pokev+21,0:ifle<>0thenle=le-1
  124. 965 print"[147][149]\\\\\\^":print"\^"
  125. 967 print"\  #[149]":print"\  $[149] []"
  126. 969 print"\][\\\\\]"
  127. 970 print"[155]...es folgt der naechste durchgang...":fort=0to300:next
  128. 972 fort=130to1step-1:poke53206,t:sys53200:next
  129. 973 fort=1to130:poke53206,t:sys53200:next:fort=0to300:next
  130. 976 goto50
  131. 1000 rem * bitte warten *
  132. 1010 :
  133. 1011 print"[147]":poke53280,0:poke53281,0
  134. 1014 print:print"planet of death":print
  135. 1024 print"ein arcade-spiel fuer den commodore 64"
  136. 1025 printtab(8)"mit joystick  (port 2)"
  137. 1030 printtab(13)"bitte warten"
  138. 1040 printtab(7)"daten werden eingelesen"
  139. 1050 :
  140. 2000 rem maschinenprogramm
  141. 2002 :
  142. 2003 data120,169,192,141,21,3,169,13,141,20,3,88,96
  143. 2005 data174,0,220,224,112,176,73,174,195,2,224,0,208,66,173,16,208,41,253,141
  144. 2006 data16,208,173,16,208,41,1,170,224,1,208,6,238,16,208,238,16,208,174,0,208
  145. 2007 data142,2,208,174,1,208,142,3,208,162,1,142,195,2,162,0,142,4,212
  146. 2008 data162,4,142,1,212,162,10,142,5,212,162,15,142,24,212,162,129,142,4,212
  147. 2010 data174,31,208,142,255,207
  148. 2011 data173,255,207,41,2,170,224,2,208,8,162,0,142,195,2,142,3,208
  149. 2013 data173,255,207,41,32,170,224,32,208,8,162,0,142,203,2,142,11,208
  150. 2015 data173,255,207,41,1,170,224,1,208,23,162,57,142,0,208,162,199,142,1,208
  151. 2016 data173,16,208,41,254,141,16,208,162,1,142,254,207,169,0,141,192,2,141,193
  152. 2103 data2,173,0,220,41,239,141,253,207,174,254,207,224,1,240,112
  153. 2105 data174,253,207,224,107,208,5,169,255,141,192,2,174,253,207,224,103
  154. 2106 data208,5,169,1,141,192,2
  155. 2107 data174,253,207,224,110,208,5,169,255,141,193,2,174,253,207,224,109,208,5
  156. 2108 data169,1,141,193,2,174,253,207,224,106,208,8,169,255,141,193,2,141,192,2
  157. 2109 data174,253,207,224,102,208,10,169,255,141,193,2,169,1,141,192,2
  158. 2110 data174,253,207,224,105,208,10,169,1,141,193,2,169,255,141,192,2
  159. 2111 data174,253,207,224,101,208,8,169,1,141,193,2,141,192,2
  160. 2119 data173,16,208,41,1,170,224,1,240,12,174,0,208,224,30,176,17,169,1
  161. 2120 data141,192,2,174,0,208,224,60,144,5,169,255,141,192,2
  162. 2150 data174,1,208,224,40,176,5,169,1,141,193,2,174,1,208,224,200,144,5,169,255
  163. 2151 data141,193,2
  164. 2182 data174,5,208,224,90,176,5,162,1,142,197,2,174,5,208,224,175,144,5,162,255
  165. 2183 data142,197,2
  166. 2184 data174,7,208,224,90,176,5,162,1,142,199,2,174,7,208,224,175,144,5,162,255
  167. 2185 data142,199,2
  168. 2193 data174,8,208,224,100,176,5,162,1,142,200,2,174,8,208,224,240,144,5,162
  169. 2219 data255,142,200,2,162,15,169,128,141,61,3,141
  170. 2220 data60,3,222,208,2,208,44,189,176,2,157,208,2,189,192,2,240,33,16,12,189,0
  171. 2230 data208,8,222,0,208,40,240,7,208,19,254,0,208,208,14,173,60,3,208,9,173,61
  172. 2240 data3,77,16,208,141,16,208,173,60,3,208,3,78,61,3,73,128,141,60,3,202,16
  173. 2250 data191,76,49,234,-1
  174. 3010 data162,0,142,11,212
  175. 3020 data162,255,142,8,212,162,10,142,12,212,162,15,142,24,212,162,129,142,11
  176. 3025 data212,96,-1
  177. 4080 data120,169,49,133,1,169,0,133,98,133,100,169,208,133,99,169,56,133,101
  178. 4082 data162,16,160,0,177,98,145,100,200,208,249,230,99,230,101,202,208,242
  179. 4085 data169,55,133,1,88,96,-1
  180. 4095 data1,1,3,7,15,31,127,255,255,255,255,255,255,255,255,255
  181. 4096 data128,128,192,224,240,248,254,255,255,252,252,240,224,192,128,128
  182. 4097 data255,63,63,7,3,3,1,1,,,,,,,,,8,76,247,3,3,247,76,8,0,0,0,0,0,0,0,0
  183. 4098 data16,16,16,56,56,56,108,68,124,108,238,198,214,84,56,16
  184. 4099 data16,16,16,56,56,124,56,16,0,3,15,252,252,15,3,-1
  185. 5000 rem ** einlesen der daten **
  186. 5001 :
  187. 5010 fort=0to1999:readq:ifq=-1then5026
  188. 5012 poke49152+t,q:next
  189. 5026 fort=0to999:readq:ifq=-1then5030
  190. 5027 poke53200+t,q:next
  191. 5030 fort=0to999:readq:ifq=-1then5035
  192. 5032 poke53000+t,q:next
  193. 5035 sys53000:poke53272,(peek(53272)and240)or14
  194. 5036 fort=0to999:readq:ifq=-1then5050
  195. 5037 poke14336+27*8+t,q:next
  196. 5050 :
  197. 6000 rem ** sprites **
  198. 6002 :
  199. 6006 rem ** eigener raumer **
  200. 6010 data,,,,,,,,,,60,,,102,,,195,,15,255,240,31,255,248,48,60,12,48,24,12,24
  201. 6020 data,24,24,,24,8,,16,,,,,,,,,,,,,,,,,,,,,,,,
  202. 6030 :
  203. 6032 rem ** bombe **
  204. 6035 data,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,24,,,24,,,24,,,,,,,,,,,,,,,,,,,,,,,
  205. 6040 rem ** geschuetz (gegner) **
  206. 6045 data,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,48,,,48,,8,48,64,8,48,64,56,120
  207. 6046 data112,127,255,248,63,255,240,31,255,224,15,3,192,
  208. 10000 rem ** einlesen der sprites **
  209. 10001 :
  210. 10010 fort=0to63:readq:poke832+t,q:next
  211. 10020 fort=0to63:readq:poke896+t,q:next
  212. 10030 fort=0to63:readq:poke960+t,q:next
  213. 15000 rem ** level **
  214. 15001 :
  215. 15003 fort=0to100:poke53206,t:sys53200:next
  216. 15010 print"[145][145][145]sind sie 1 = anfaenger,    "
  217. 15020 printtab(7)"  2 = fortgeschrittener oder"
  218. 15025 printtab(7)"  3 = experte"
  219. 16000 geta$
  220. 16010 ifa$="1"thenle=4:goto20000
  221. 16011 ifa$="2"thenle=2:goto20000
  222. 16012 ifa$="3"thenle=0:goto20000
  223. 16013 goto16000
  224. 20000 rem ** variablen, daten **
  225. 20001 :
  226. 20002 v=53248:l=9:sc=0:poke53247,0:poke53246,0:poke56325,20
  227. 20022 pokev+27,44:poke706,0:poke707,0
  228. 20023 poke708,0:poke709,1
  229. 20024 poke710,0:poke711,255
  230. 20025 poke712,1:poke713,0
  231. 20042 poke688,3:poke689,3
  232. 20043 poke690,3:poke691,2
  233. 20044 poke692,3+le:poke693,3+le
  234. 20045 poke694,3+le:poke695,3+le
  235. 20046 poke696,2+le:poke699,2+le
  236. 20060 poke2040,13:poke2041,14:poke2042,14:poke2043,14:poke2044,15:poke2045,14
  237. 20142 pokev+39,1:pokev+40,1:pokev+41,1
  238. 20143 pokev+42,1:pokev+43,1:pokev+44,1
  239. 20170 pokev+16,0:pokev,56:pokev+1,200
  240. 20172 pokev+3,0:pokev+4,95:pokev+5,110
  241. 20173 pokev+6,255:pokev+7,110:goto50
  242. 30000 rem ** bild 1 **
  243. 30010 :
  244. 30090 print"[147][145][149]\\\\\\\\\\\\\\\\\\\   \\\\\\\\\\\\\\\\\\"
  245. 30100 print"[145]\\\\\\\\\\\\\\\\\\\   \\\\\\\\\\\\\\\\\\"
  246. 30105 print"[145]\\\\\^        _\\\\   \\time[146]\\\\\\\\\\\\"
  247. 30110 print"[145]\\\\^          _\\\   \\\\\\\\\\\^   _\\"
  248. 30115 print"[145]\\\^            _\^   _\\\\\\\\^      _\"
  249. 30120 print"[145]\\^     [\\]     _]    \\\\\\\^        \"
  250. 30125 print"[145]\^    [\\^ _]     _]   _\\\\\^         \"
  251. 30130 print"[145]\    [\\\   \]     \    \\\\^    []    \"
  252. 30135 print"[145]\    \^_    \^    [\    _\^      \^    \"
  253. 30140 print"[145]\           \    [\\            [\    [\"
  254. 30150 print"[145]\           \    _\^          [\\^    \\"
  255. 30155 print"[145]\]          \     _]        [\\^      \\"
  256. 30160 print"[145]\\\\\] [    \]     _]  [\\\\\^       [\\"
  257. 30165 print"[145]\\^  _\\    \\]     _\\\\\^          \\\"
  258. 30170 print"[145]\^          _^_]     _^_\^      [^    _\"
  259. 30175 print"[145]\]             \               [\      \"
  260. 30180 print"[145]\\]           \]             [\\]     \"
  261. 30185 print"[145]\\\]   [\]    [\\]          [\\\\\]   [\"
  262. 30186 print"[145]\\\\   \\\\\\\\\\\]        [\\\\\\\\\\\\"
  263. 30187 print"[145]\\\\   \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
  264. 30188 print"[145]\\\\[162][162][162][149]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
  265. 30189 print"[145]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
  266. 30190 print"[145] score                     raumer       "
  267. 30191 print"[145]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\":poke1983,160:poke56255,9
  268. 31000 goto80
  269. 32000 rem ** bild 2
  270. 32001 :
  271. 32017 print"[147][149][145]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\   \\\\\"
  272. 32018 print"[149][145]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\   \\\\\"
  273. 32020 print"[145]^  _^   _\\\^_^_^_^_^_^_\\^_\\\\[183][183][183][149]\\\\\"
  274. 32025 print"[145]         \\\            \\    \\   ^[\\\"
  275. 32030 print"[145]         \\\            _^    _\   [\\\\"
  276. 32032 print"[145]         _\\]                  _   \\\\\"
  277. 32033 print"[145]           _\]                     _\\\\"
  278. 32035 print"[145]            \^                       \\\"
  279. 32036 print"[145]            \]                      [\\\"
  280. 32037 print"[145]            \\                      _\\\"
  281. 32038 print"[145]            \^                       \\\"
  282. 32039 print"[145]            \]                      [\\\"
  283. 32040 print"[145]\]          _^                      _\\\"
  284. 32042 print"[145]\\   \\]                             \\\"
  285. 32043 print"[145]^     _\]                           [\\\"
  286. 32044 print"[145]]     [\\                           \\\\"
  287. 32045 print"[145]\\]   \\\   ]                      [\\\\"
  288. 32046 print"[145]\\\   \\\] [\] []                [\\\\\\"
  289. 32047 print"[145]\\^   _\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
  290. 32048 print"[145]\\]    \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
  291. 32049 print"[145]\\\[162][162][162][162][149]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
  292. 32050 print"[145]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
  293. 32051 print"[145] score                     raumer       "
  294. 32052 print"[145]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\":poke1983,160
  295. 32053 poke56255,9:goto631
  296. 33000 rem ** bild 3 **
  297. 33009 :
  298. 33010 print"[147][149][145]\\\\\\\\\\\\\    \\\\\\\\\\\\\\\\\\\\\\\"
  299. 33012 print"[145]\\\\\\\\\\\\\    \\\\\\\\\\\\\\\\\\\\\\\"
  300. 33014 print"[145]\\\^      _\\    _\\\^ _\\^           _\"
  301. 33016 print"[145]\\^        _\     _\^                  \"
  302. 33018 print"[145]\\          _]     \                   \"
  303. 33019 print"[145]\\]   []     \     \                  ![149]\"
  304. 33020 print"[145]\\\   \\    [\    [^                   \"
  305. 33022 print"[145]\\\   \^    \^                         \"
  306. 33023 print"[145]\\^   \]   [^           #[149]             [\"
  307. 33024 print"[145]\\]   \^   _]   []      $[149]   [  ]    [\\\"
  308. 33026 print"[145]\\\   \]    _\\\\\\]   [\\\\\  \    _\\\"
  309. 33027 print"[145]\\^   \\      _\\\\\\][\\\\\^  \]    _\\"
  310. 33028 print"[145]\\    _\]      _\\\\\\\\\\\\]  _^     _\"
  311. 33030 print"[145]\\]    \\]      _\\\\\\\\\\\\  []      \"
  312. 33032 print"[145]\\\]   _\\       _\\\\\\\\\\^  _\]     \"
  313. 33034 print"[145]\\\\    \\                       _     \"
  314. 33035 print"[145]\\^     \\]                           [\"
  315. 33036 print"[145]\\]    [\\\]                          _\"
  316. 33037 print"[145]\\\    \\\\\    [\\\\\\\\\\\]          \"
  317. 33038 print"[145]\\\    \\\\\] [\\\\\\\\\\\\\\]        [\"
  318. 33039 print"[145]\\\[162][162][162][162][149]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
  319. 33040 print"[145]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
  320. 33100 print"[145] score                     raumer       "
  321. 33101 print"[145]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\":poke1983,28
  322. 33102 poke56255,9:goto823
  323.